home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh1x / sh12a.d64 / move-demo 1 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  582b  |  27 lines
  1. 100 REM *** MOVE-DEMO ***
  2. 110 REM *** WINDOWING ***
  3. 120 :
  4. 130 PRINT CHR$(147)
  5. 140 FOR I=1 TO 20
  6. 150 : PRINT "DIES IST EIN TEST"
  7. 160 NEXT
  8. 170 :
  9. 180 SYS 49152,1024,50000,1000
  10. 190 :
  11. 200 PRINT CHR$(19)
  12. 210 PRINT:PRINT:PRINT
  13. 220 PRINT TAB(10)"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  14. 230 PRINT TAB(10)"[194] DIESES WINDOW   [194]"
  15. 240 PRINT TAB(10)"[194] VERSCHWINDET,   [194]"
  16. 250 PRINT TAB(10)"[194] WENN SIE EINE   [194]"
  17. 260 PRINT TAB(10)"[194] TASTE DRUECKEN  [194]"
  18. 270 PRINT TAB(10)"[194] UND WIRD DURCH  [194]"
  19. 280 PRINT TAB(10)"[194] DEN ALTEN BILD- [194]"
  20. 290 PRINT TAB(10)"[194] SCHIRMINHALT    [194]"
  21. 300 PRINT TAB(10)"[194] ERSETZT         [194]"
  22. 310 PRINT TAB(10)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  23. 320 :
  24. 330 GET A$:IF A$="" THEN 330
  25. 340 SYS 49152,50000,1024,1000
  26. 350 GET A$:IF A$="" THEN 350
  27.